home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_Tix.idb / usr / freeware / lib / tix4.1 / Compat.tcl.z / Compat.tcl
Encoding:
Text File  |  1999-01-26  |  827 b   |  40 lines
  1. # Compat.tcl --
  2. #
  3. #     This file wraps around many incompatibilities from Tix 3.6
  4. #    to Tix 4.0.
  5. #
  6. #    (1) "box" to "Box" changes
  7. #    (2) "DlgBtns" to "ButtonBox" changes
  8. #
  9. # Copyright (c) 1996, Expert Interface Technologies
  10. #
  11. # See the file "license.terms" for information on usage and redistribution
  12. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  13. #
  14.  
  15.  
  16. proc tixDlgBtns {args} {
  17.     return [eval tixButtonBox $args]
  18. }
  19.  
  20. proc tixStdDlgBtns {args} {
  21.     return [eval tixStdButtonBox $args]
  22. }
  23.  
  24. proc tixCombobox {args} {
  25.     return [eval tixComboBox $args]
  26. }
  27.  
  28. proc tixFileSelectbox {args} {
  29.     return [eval tixFileSelectBox $args]
  30. }
  31.  
  32. proc tixScrolledListbox {args} {
  33.     return [eval tixScrolledListBox $args]
  34. }
  35.  
  36. proc tixInit {args} {
  37.     eval tix config $args
  38.     puts stderr "tixInit no longer needed for this version of Tix"
  39. }
  40.